home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 45 / 64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64 / listing 7 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  493b  |  19 lines
  1. 5 base=2*4096:poke 53272,peek(53272) or 8 :rem bitmap ab 8192
  2. 10 poke 53265,peek(53265) or 32:rem bitmapmodus einschalten
  3. 20 for i=base to base+7999:poke i,0:next:rem bitmap loeschen
  4. 30 for i=1024 to 2023:poke i,3:next:rem farben auf cyan und schwarz
  5. 50 for x=0 to 160:rem funktion fuellt halben bildschirm
  6. 55 y1=100+sqr(160*x-x*x)
  7. 56 y2=100-sqr(160*x-x*x)
  8. 60 for y=y1 to y2 step y1-y2
  9. 70 ch=int(x/8)
  10. 80 ro=int(y/8)
  11. 85 ln=y and 7
  12. 90 by=base+ro*320+8*ch+ln
  13. 100 bi=7-(x and 7)
  14. 110 poke by,peek(by) or (2^bi)
  15. 114 next y
  16. 120 next x
  17. 125 poke 1024,16
  18. 130 goto 130
  19.